home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
os2
/
octa209s.zip
/
octave-2.09
/
libcruft
/
misc
/
xstopx.f
< prev
Wrap
Text File
|
1996-02-03
|
233b
|
10 lines
subroutine xstopx (string)
character *(*) string
integer slen
slen = len (string)
if (slen .eq. 1 .and. string(1:1) .eq. ' ') then
slen = 0
endif
9999 call dostop (string, slen)
end